home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cyber Strip Poker
/
Cyber Strip Poker.rar
/
IMAGE.img
/
poker2.dir
/
00075_Script_75
< prev
next >
Wrap
Text File
|
1995-08-14
|
4KB
|
172 lines
--CheckDHandFinal
on checkDHandFinal
global nameout, namein
global dhand,dV,dH,dH2
global d1,d2,d3,d4,d5
global ds1,ds2,ds3,ds4,ds5,dfeel
put 0 into dfeel
set dV=0
set dH=0
set dH2=0
-- checkStraightFlush
if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) and (d2-d1=1) and ¼
(d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
if d5=12 then
put "I GOT A ROYAL FLUSH!!" into dhand
set dfeel = 200
set dV=8
set dH=((d5*4)+ds5)
set dH2=ds5
exit
else
put "SEE MY STRAIGHT FLUSH, HON" into dhand
set dfeel = 200
set dV=8
set dH=((d5*4)+ds5)
set dH2=ds5
exit
end if
end if
-- checkFourOfAKind
if (d1=d2) and (d2=d3) and (d3=d4) then
put "I Got Four Of A Kind" into dhand
set dfeel = 200
set dV=7
set dH=((d4*4))
set dH2=ds4
exit
end if
if (d2=d3) and (d3=d4) and (d4=d5) then
put "Four Of A Kind For Me" into dhand
set dfeel = 200
set dV=7
set dH=((d4*4))
set dH2=ds5
exit
end if
-- checkFullHouse
if (d1=d2) and (d2=d3) and (d4=d5) then
put "I Got A Full House, Baby" into dhand
set dfeel = 200
set dv=6
set dh=((d3*4))
set dH2=((d5*4)+ds3)
exit
end if
if (d1=d2) and (d3=d4) and (d4=d5) then
put "Oooh, I Filled A Full House" into dhand
set dfeel = 200
set dv=6
set dh=((d3*4))
set dH2=((d2*4)+ds5)
exit
end if
-- checkFlush
if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
put "Flush In My Hand" into dhand
set dfeel = 150
set dv=5
set dh=((d5*4)+ds5)
set dH2=ds5
exit
end if
-- checkStraight
if (d2-d1=1) and (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
put "Straight For Me" into dhand
set dfeel = 150
set dv=4
set dh=((d5*4)+ds5)
set dH2=ds5
exit
end if
-- checkTriplets
if (d1=d2) and (d2=d3) then
put "I Got Three Of A Kind" into dhand
set dfeel = 100
set dv=3
set dh=((d3*4))
set dH2=ds5
exit
end if
if (d2=d3) and (d3=d4) then
put "Three Of A Kind For Me" into dhand
set dfeel = 100
set dv=3
set dh=((d4*4))
set dH2=ds5
exit
end if
if (d3=d4) and (d4=d5) then
put "I Show Three Of A Kind" into dhand
set dfeel = 100
set dv=3
set dh=((d5*4))
set dH2=ds2
exit
end if
-- checkTwoPair
if (d1=d2) and (d3=d4) then
put "I Got Two Pair, Sweetie" into dhand
set dfeel = 75
set dv=2
set dh=((d4*4))
set dH2=ds5
exit
end if
if (d1=d2) and (d4=d5) then
put "Two Pair, Read 'em & Weep" into dhand
set dfeel = 75
set dv=2
set dh=((d5*4))
set dH2=ds3
exit
end if
if (d2=d3) and (d4=d5) then
put "I Show Two Pair" into dhand
set dfeel = 75
set dv=2
set dh=((d5*4))
set dH2=ds1
exit
end if
-- checkOnePair
if (d1=d2) then
put "I Have One Pair" into dhand
set dfeel = 20
set dv=1
set dh=((d2*4))
set dH2=ds5
exit
end if
if (d2=d3) then
put "I Got One Pair" into dhand
set dfeel = 30
set dv=1
set dh=((d3*4))
set dH2=ds5
exit
end if
if (d3=d4) then
put "One Pair For Me" into dhand
set dfeel =40
set dv=1
set dh=((d4*4))
set dH2=ds5
exit
end if
if (d4=d5) then
put "One Pair In My Corner" into dhand
set dfeel = 50
set dv=1
set dh=((d5*4))
set dH2=ds3
exit
end if
-- decideNoPair
put d5 into namein
namer
put "I Got Nothing... "&nameout&" For Me" into dhand
set dfeel = 5
set dv=0
set dh=((d5*4))
set dH2=((d4*4))